home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / PRIM / OISEARCH.ELC < prev    next >
Text File  |  1993-03-28  |  7KB  |  28 lines
  1. ;;; compiled by @win386 on Sat Mar 13 01:39:40 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/prim/oisearch.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴Mê┬├Mç" [search-forward-regexp re-search-forward search-backward-regexp re-search-backward] 2)
  14. (defvar search-ring nil "\
  15. List of search string sequences.")
  16. (defvar regex-search-ring nil "\
  17. List of regular expression search string sequences.")
  18. (defconst search-ring-max 16 "\
  19. *Maximum length of search ring before oldest elements are thrown away.")
  20. (defconst regex-search-ring-max 16 "\
  21. *Maximum length of search ring before oldest elements are thrown away.")
  22. (defvar search-ring-yank-pointer nil "\
  23. The tail of the search ring whose car is the last thing searched for.")
  24. (defvar regex-search-ring-yank-pointer nil "\
  25. The tail of the regular expression search ring whose car is the last
  26. thing searched for.")
  27. (byte-code "└┴Mê┬├Mê─┼!¼é╞╟└!¼ä╚└!ê╔╩Mê╦╠Mê═╬Mê╧╨Mê╤╥Mê╙╘Mê╒╓Mê╫╪Mç" [isearch #[(forward &optional regexp op-fun) "└ë┴┬┴`┴ëë X¡ç┼ ╟_V┴ëëë`╚ ┬    \n  ┌ ê█ïêG▄V½╨½º¥ë¼¥BëG V½░ S¢┴íê¬Ñ!¥ë\"¼¢!Bë!\"!G#V½ë#S!¢┴íê` U¼çΣ !ê¬äσ└!ê½àb¬çµτ  ┬#.ç" ["" nil t baud-rate search-slow-speed window-height search-slow-window-lines 4 allocate-event inhibit-quit event opoint found-start found-point small-window other-end slow-terminal-mode invalid-regexp yank-flag adjusted barrier wrapped success cmds search-message search-string isearch-push-state ((byte-code "└┴ìê┬├ !`└ç" [search-done (byte-code "¼▐┴ ¼â┬ ê ½╘ ¼╤┼ ¼═╞`╚╔!ê╩ ╠═╔W½å[T¬å╧ TZ\"ê)╔W½£╨╩Z!ê╤╥ `\"ê╙╥ ╘ \"ê╙╒ ╔\"ê¬ä╓╩!êbê╫!ê½ä¬ÿ█▄!▌\"╔U½ï▐╞\"«å¬é══ ═!¿¼Å\"½ïπΣ╞\"êé═%=½û&G╔U½çτ()\"êπΣ╞\"êé═U½óΩ═δ\"ê∞ ê-½î.bê∩≡═\"êé═-ä═± ê¬v2=¼ç3=½²(2==½╞&⌠ܽ¡)½Ä5½à5@¬æ6@¬î7½à7@¬â8@«ü⌠&∙·&⌠#;¬ÿ-¼ö(½âe¬üdbê╞<¬à(?(`=╞-&⌠ܼö╔ò╔öܽè(½â╩¬ü■uê  êü@ êé═AU½ôBA¼êΩ═δ\"êé═± êé═CU½Γ± ê)½⌐6GëD╔U¼£D5GZ╩\\Dª6¢ë5@&∙·&⌠#;)¬º8GëD╔U¼£D7GZ╩\\Dª8¢ë7@&∙·&⌠#;)ü@ ê  êé═EU½µ± ê)½½6GëD╔U¼₧D5GZDS\\Dª6¢ë5@&∙·&⌠#;)¬⌐8GëD╔U¼₧D7GZDS\\Dª8¢ë7@&∙·&⌠#;)ü@ ê  êé═F=¼çG=½╚è(¼êH½äHbê`èG=½à═ê¬â╩vê`){)I)½êüJI!I&IP&;∙·I⌠#P;╞!)¬Φ\"½▒KU¼¬üLU¼ÿüMW½ÜüNU¼ÆüOU¼èπΣ╞\"ê¬│KU½ïüP┬╞!!¬ìüOU½àüQ&üR!P&;·!P;-¼à)â╚)½═B½╔üS>½▓╞ (½àüT¬âüUBA@8ëV«é=V(½çV=]¬àV=^bê)¬ÅüW=½ç╞ =bê(¼¿ ¼ñ═üXüYŽÜ!¼è╔ò.=^X½î╞-═Z╔òH¬₧H½ù ¼ô(½äH¬ë.=HT^^bê  êü@ ê)[â[ êé" [unread-command-event input-pending-p isearch-message slow-terminal-mode small-window pos-visible-in-window-p t found-point move-to-window-line 0 1 window-min-height split-window nil search-slow-window-lines window-height vertical-motion set-window-start next-window set-window-hscroll window-hscroll selected-window other-window isearch-next-event event quit-flag interrupt-char logand event-modifier-bits -2 event-to-character char adjusted yank-flag search-exit-option throw search-done search-exit-char search-string nonincremental-search forward regexp ding isearch-quit discard-input success opoint signal quit isearch-pop search-repeat-char search-reverse-char "" regex-search-ring-yank-pointer regex-search-ring search-ring-yank-pointer search-ring mapconcat isearch-text-char-description search-message wrapped barrier -1 isearch-search isearch-push-state search-delete-char cmds search-ring-advance-char length search-ring-retreat-char search-yank-word-char search-yank-line-char other-end word regexp-quote search-quote-char 127 32 9 13 read-quoted-char 10 char-to-string (42 63) 5 2 cs 124 (byte-code "└    ½â\n¬â├\n!!ç" [looking-at regexp search-string regexp-quote] 3) ((error)) invalid-regexp op-fun] 6) window-start selected-window found-start found-point] 2)) 0 regexp regex-search-ring regex-search-ring-yank-pointer regex-search-ring-max search-ring search-ring-yank-pointer search-ring-max push-mark message set-window-start selected-window] 18] isearch-text-char-description #[(c) "└    ┬\"├U½ä─    !ç┼    !ç" [logand c 128 0 text-char-description char-to-string] 3] boundp isearch-extent nil find-face make-face isearch-highlight #[(begin end) "└    !½Å┬    !p=½ê├     #ꬥ└    !½Æ╞┬    !!½ï╟┬    !!½ä╚    !ê╔ p#╩    ╦\"ç" [extentp isearch-extent extent-buffer update-extent begin end bufferp buffer-name delete-extent make-extent set-extent-face isearch] 4] isearch-dehighlight #[(totally) "¡╝    ½₧┬─!½Æ┼╞!!½ï╟╞!!½ä╚!ê╔ë)ç─!½ô┼╞!!½î╟╞!!½à╩╦\"ç╠┬!ç" [isearch-extent totally t inhibit-quit extentp bufferp extent-buffer buffer-name delete-extent nil set-extent-face default isearch-dehighlight] 3] isearch-next-event #[(event) "¼ä┴\n!ç ¡Å `U?¡ë `W½â ¬ü`ë¡ë `W½â`¬ü ë½ç└ \"ê¬ä╞╟!ê╚Ä┴\n!+ç" [isearch-highlight next-command-event event other-end begin end isearch-dehighlight nil ((isearch-dehighlight nil))] 4] isearch-message #[(&optional c-q-hack ellipsis) "½ê    ½à┬├─Åê¼é┬½â╞¬ü╟¡ü╔\n½â╦¬ü╞╠½â╬¬ü╧½â╥¬ü╞½å╙╘Q¬ü╞░ë╓╓HûIê    ½ä¬à╪┘\"*ç" [invalid-regexp ellipsis nil (byte-code "└    `┬#ê├├ç" [re-search-forward search-string t nil invalid-regexp] 4) ((error)) success "" "failing " wrapped "wrapped " regexp "regexp " "I-search" forward ": " " backward: " search-message c-q-hack "^Q" " [" "]" m 0 cursor-in-echo-area message "%s"] 11] isearch-pop #[nil "Aë@ë@    A@─    8╞    8╚    8    ╩    8 ╠    8╬    8    AA@b)ç" [cmds cmd search-string search-message 3 success 4 forward 5 other-end 6 invalid-regexp 7 wrapped 8 barrier] 3] isearch-push-state #[nil "    `\n »    Bëç" [search-string search-message success forward other-end invalid-regexp wrapped barrier cmds] 9] isearch-search #[nil "└┴┬\"ê├─┼Åê?¡Æ╟@8½à╔┴╩\"ê╦@8bç" [isearch-message nil t lossage (byte-code "└\n½é└\n½ë ½â┼¬è╞¬ç ½â╟¬ü╚    └╩#ë ½ï ½ä╠ö¬é╠ò)└ç" [nil inhibit-quit regexp invalid-regexp forward re-search-forward re-search-backward search-forward search-backward search-string t success 0 other-end] 5) ((quit (byte-code "└    ┬ \"──ç" [character-to-event interrupt-char allocate-event unread-command-event nil success] 3)) (invalid-regexp (byte-code "A@┬├    \"½é─┬ç" [lossage invalid-regexp string-match "\\`Premature \\|\\`Unmatched \\|\\`Invalid " "incomplete input"] 3))) success 3 cmds ding isearch-failed 2] 3] nonincremental-search #[(forward regexp) "└ëëëë┴½è    ½â╩¬ï╦¬ê    ½â╠¬ü═╟╬\"ê╧!ê╤┴\"«é뺽ô=½î    ½â╙¬ü╘¬Éº½å¬à╓!ê=½è    ½â╫¬Ö╪¬û½è    ½â┘¬ï┌¬ê    ½â█¬ü▄▌!ëG▐U½à¬â  D B  !.ç" [nil t cursor-in-echo-area inhibit-quit string function char message regexp forward "Regexp search: " "Regexp search backward: " "Search: " "Search backward: " "%s" isearch-next-event event event-to-character search-yank-word-char "Word search: " "Word search backward: " unread-command-event dispatch-event word-search-forward word-search-backward re-search-forward re-search-backward search-forward search-backward read-string 0 search-last-string command-history] 7]] 2)
  28.